home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
univspl
/
void_big.h
< prev
Wrap
Text File
|
1998-12-09
|
54KB
|
1,126 lines
#if BIG
void acorf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
acorf(S[j], D[j], n, n); }
void acort_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
acort(S[j], D[j], n, n); }
void aspec_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
aspec(S[j], inc1, D[j], inco, n); }
void blkman_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
blkman(S[j], inc1, D[j], inco, n); }
void ccdotp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
ccdotp(S[j], 2, S[(j+4)%8], 2, cso, n); }
void ccorf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
ccorf(S[j], S[(j+4)%8], D[j], n, n); }
void ccort_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
ccort(S[j], S[(j+4)%8], D[j], n, n); }
void cdotpr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cdotpr(S[j], 2, S[(j+4)%8], 2, cso, n); }
void cfft_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cfft(S[j], n, flg); }
void cfftf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cfftf(S[j], 2, D[j], 2, n); }
/**
cfftf_64c_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cfftf_64c(S[j], 2, D[j], 2, n); }
**/
void cffti_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cffti(S[j], 2, D[j], 2, n); }
void cfftsc_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cfftsc(D[j], n); }
void convd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
convd(S[j], 1, S[(j+4)%8], 1, D[j], 1, n, 32, ndf); }
void cpow_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cpow(S[j], 2, &rs1, S[(j+4)%8], inc2, &rs2, D[j], inco, n); }
void crvdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
crvdiv(S[j], 2, S[(j+4)%8], inc2, D[j], 2, n); }
void crvmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
crvmul(S[j], 2, S[(j+4)%8], inc2, D[j], 2, n); }
void cspec_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cspec(S[j], S[(j+4)%8], D[j], n); }
void cvabs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvabs(S[j], 2, D[j], inco, n); }
void cvadd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvadd(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
void cvcml_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvcml(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
void cvcmla_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvcmla(S[j], 2, S[(j+4)%8], 2, S[(j+2)%8], 2, D[j], 2, n); }
void cvcomb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvcomb(S[j], inc1, S[(j+4)%8], inc2, D[j], 2, n); }
void cvconj_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvconj(S[j], 2, D[j], 2, n); }
void cvcsml_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvcsml(S[j], 2, cs1, D[j], 2, n); }
void cvdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvdiv(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
void cvexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvexp(S[j], inc1, D[j], 2, n); }
void cvfill_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvfill(cs1, D[j], 2, n); }
void cvma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvma(S[j], 2, S[(j+4)%8], 2, S[(j+2)%8], 2, D[j], 2, n, 1); }
void cvmags_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvmags(S[j], 2, D[j], inco, n); }
void cvmexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvmexp(S[j], inc1, S[(j+4)%8], 2, D[j], 2, n); }
void cvmgsa_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvmgsa(S[j], 2, S[(j+4)%8], inc2, D[j], inco, n); }
void cvml_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvml(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
void cvmla_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvmla(S[j], 2, S[(j+4)%8], 2, S[(j+2)%8], 2, D[j], 2, n); }
void cvmov_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvmov(S[j], 2, D[j], 2, n); }
void cvmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvmul(S[j], 2, S[(j+4)%8], 2, D[j], 2, n, flg); }
void cvneg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvneg(S[j], 2, D[j], 2, n); }
void cvphas_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvphas(S[j], 2, D[j], inco, n); }
void cvrcip_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvrcip(S[j], 2, D[j], 2, n); }
void cvreal_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvreal(S[j], inc1, D[j], 2, n); }
void cvsma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvsma(S[j], 2, cs1, S[(j+4)%8], 2, D[j], 2, n); }
void cvsmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvsmul(S[j], 2, &rs1, D[j], 2, n); }
void cvsqrt_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvsqrt(S[j], 2, D[j], 2, n); }
void cvsub_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
cvsub(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
void deq22_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
deq22(S[j], inc1, S[(j+4)%8], D[j], inco, n); }
void dotpr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
dotpr(S[j], inc1, S[(j+4)%8], inc2, &rso, n); }
void envel_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
envel(S[j], D[j], n); }
void fftwts_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
fftwts(D[j], m, n); }
void fix4_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
fix4(S[j], inc1, (long*)D[j], inco, n); }
void fix2n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
fix2n(S[j], inc1, svo, inco, n); }
void fix4n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
fix4n(S[j], inc1, (long*)D[j], inco, n); }
void fixbn_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
fixbn(S[j], inc1, (char*)D[j], inco, n); }
void flt2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
flt2((short*)S[j], inc1, D[j], inco, n); }
void flt2iq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
flt2iq((short*)S[j], inc1, D[j], D[(j+4)%8], n); }
void flt4_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
flt4((long*)S[j], inc1, D[j], inco, n); }
void fltb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
fltb((char*)S[j], inc1, D[j], inco, n); }
void fltbu_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
fltbu((char*)S[j], inc1, D[j], inco, n); }
void fxsl2n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
fxsl2n(S[j], inc1, &rs1, &rs2, svo, inco, n); }
void fxsl4n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
fxsl4n(S[j], inc1, &rs1, &rs2, (long*)D[j], inco, n); }
void fxslbn_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
fxslbn(S[j], inc1, &rs1, &rs2, (char*)D[j], inco, n); }
void gcosf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
for (j=0; j<32; j++)
gcosf(D[j], inco, &rs1, &rs2, n); }
void gc